IMPOSSIBLE CRISTAL 
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Voici une version LSE du programme qui fait tracer le dessin 
illusoire bien connu inspir& par M.C. Escher. 


a ۷ 
1. 
8 
E `, AN. 4 ` 
A = -\ —1— > سر‎ Նա OM. 
ہجہل‎ —w— X 
a a a a aà ä 
Le motif de base : ; traits hoi ኞች (հլ, ha ‚ 3 traits 
` verticaux (V. Vos V4); 3 traits obliques (01103103 a donne 


3 2 1 


7 


Le pas élémentaire de la tracante et les 8 directions 0...7. 
8 et 9 sont réservées aux lever et baisser de plume. 


Un pas oblique : un pas droit x V7 


http://www.artinfo-musinfo.org Artinfo Musinfo # 28, mars 1978, page 47 / 56 


JEH | 02/02/75 TELEMECANIQUE ELECTRIQUE 1 BOGUT 


1 ረረ ንዙ 3 3€ ጎር J£ € 3€ 3€ 9€ H De 9€ 2€ ሙዙ ጎሩ ሳድ € 3€ ንዮ 2€ ነዙ 0€ ንዙ C € 0€ `w: ہر‎ 0€ ንር W- پر پر پر کو‎ ጎድ ጎ ጎዜ ویر ود‎ E HC ik E ሳሩ DE E E ود‎ ጎር ንር E یہ‎ E ጎር ور‎ € EXE Ê E ہو‎ MI 
2 ረቂ 
3 (€ | IMF OS SPB LE CRISTAL 
á ፈረ 
e EA 
b 
7 MAIN PROCEDURE DESSIN 
a | 
9 ` «COMMON SECTION COM 
10 ` REF PROCEDURE FASELNI | hs 
— ጊኒ WORT! Is, ۱۰ AL AP АРВ» APS APIO» APNIOS. 
- 34: WORD OTR | NF 6SS S 
13 ARRAY 10 BYTE ፐዐል፡፡ (ЛП, "0A," QUEL AD 
44 LFFILE QA= (MODE SOUTPUT ۶2۶ نات‎ TS? DATA: TOATEOE:105 CONTROL) 3 
vw m ^ ARRAY 10 BYTE TQN= ‹* ፳፲) "OA: nun: NO "у | 
Sede LFFILE QN= (MODE : OUTPUT » EMPEUT DATA: TONFEDE : 10: CONTROL) 3 
B c = | | | | | 
48 .KSTORE SECTION FILE 
19 | RES SOF . 
. #0 | 
21 . ¿LOCAL SECTION LOC 
E de JA RES 15 2 
23o ረረ | | 
4 x < E HE EE HE E E AC E AE EE E E HE E JE E € эе E EE EEE AE ዝጽ X X JE € ہیں چو عو‎ IEEE: W 3€ ጎሩ 3€ ጎር 9€ ንዙ 26 ጎቡ ጎድ 9€ ንዙ ጎሩ ጎሩ ጎድ 34 3⁄6 36 29€ ጎሩ 9€ 96 € 
oe ረረ 
26 | 
27 PROCEDURE LECCION) ` 
20 .LOCAL SECTION CONTINUE LOC 
29 POINTER WORD CON? 
30 BYTE NAF Im 
31 LPFILE LENA= (MODE: INFUT«EMPSEUS ፐ ፤ፒልፐል ዩዘይ፤ፎዐፎ ፈቲ SCONTROL) 3 
32 „USING LOCAL 15 LOC-ZUMMON IS COM? 
33 READ LENA? | 
34 ԿԱՕՎԸ22 NA AND "US; 
25 ENDS («IE LEC. 
- 36 ረረ | 
37 CC» 3696 ጎጅ ጎድ ንጽ 9€ 96 JE ጎድ € М. YE yC yk W- E E بد پیر‎ ሳይ E ጎር HE JE MEME JE E DE E ЖЕ ЭЕ DE D DE DE ME E E E E JE E E E E E E E E FE E E JE E E FEFE 
38 «« 
39 PROCEDURE FLUME 
41 „USING LOCAL IS LOC + COMMON 15 COM; 
. 42> RXs= NEFAS; RAs= DIR? 
43. : .- CALL PASELN? 
44 ENIS «Հոբ PLUME 
45 ረረ 
ዳሪ | € EE OPINION IE III 
47 ረፈ 
с 48 PROCEDURE PENUF 
49 
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sO 7 „USING COMMON IS COM LOCAL IS LOCI 


S1 | RX es y ԻԲ» 3 2 CALL FASELNS 
መ | ENDS € DE FENUF 
“5 ረረ | | | | | տ 
4 <ç X ہو ہو‎ ጎሩ ጎዱ ጎዛ 9E ንጹ 9C DE ጎድ X X “ሻሩ ጎሩ ሳሩ X E ንፋ ኀች ጎሩ ኃ ዞሩ ንዙ OE ንፁ ንቡ ባዬ ጎቡ 0€ ጎቡ ቆዬ ቶች € DE ہو‎ ንቡ ንዮ ቆቶ DE እች HE ጎሩ ሪዬ 35 DE ቶች ቶች ጎፋ چو چو‎ E چو‎ NEE ጎራ 
SS «« | | 
=6 .. PROCEDURE PENDOWN 
a) | | | 
BB ጋ USING COMMON IS COM>LOCAL IS LOCH 
39 RXs= 1 » ԻՃ" 7» + CALL F'ABELN: 
60 ENT << ԼԷ FENTIOWN 
51 ፈሩ 
62 «« X 3€ X X X 3€ 3€ E € ጎ € J TITTI € DE € و‎ III E DE ЭЕ جو‎ ЭЕ 3€ 0€ ጎሩ LI QE EXE 3Е IE ጎር € ЭЕ 3ር 30-36 35 E E EXE چو‎ 36 ገሩ 
43 [x = | | 
ĠA PROCEDURE NOB (DIRI DIR DIR) 
63 | | 
|» ፎይ LOCAL SECTION CONTINUE LOC 
57 WORT TTIR1-DIR2,DIR33 
68 mE 
69 „USING LOCAL IS-LOC-COMMON 165 COM? 
T DO FOR Tizi STEF +1 UNTIL Ns 
72 < < | 
? (€ LIGNE CONTINUE 
24 ረረ a 
yu NPAS i= AFNIOS 
76 | ጩመ1፳8፡5=ፒእ1ክ3 » | 
27 CALL FENTIOWN $ 
28 CALL FLUME > 
79 ረረ 
eo << RETOUR 
31 ረረ | | 
= 2 CALL F'ENUE 5 
ӨЗ | DIR:= OIRIS 
84 CALL. PLUME + 
as ረረ 
SO (€ SE DECALER VERS LA DROITE 
37 ረረ 
38 ا11٤:‎ DIRE: 
89 NFASi= А; 
ፍዕ CALL PLUME 3 
1 |. € 
Pa 2 ¿€ 1 ERE LIGNE BRISEE 
93 ረረ 
Pa DIR:= UIR15 
35 DO FOR = 1 STEF ԷԼ UNTIL N5 
96 NPASI= AF23 
97 CALL FIUME > 
99 CALL F'ENDOWN § 
99 NFASi= АРЫЗ 
100 CALL FLUME 5 
101 CALL FENUF > 
192 ENI 
103 ( < | 
104 «« RETOUR 
105 ረረ 
106 DIRS- UIRZS 
107 NPASs= AFN10! 
198 CALL PLUME 3 
109 ረረ 
110 (€ SE DECALER VERS LA DROITE 
111 E 
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ՅՅ DIRi= DIRS? 


+13 NPası= APSF 
` 114 յ CALL PLUMES 
115 ረፈ | 
“o 436 "'‹ረ. 2 EME LIGNE BRISEL 
pues = ան 
 :438፳ ' DIR=s= DIR1S 
` 41» ' GO FOR .]5= 1 STEF +1 UNTIL Ns 
ւ 120 NFAS:= AI | | | 
A c CALL FIUME > 
122 CALL PENDOWNS 
123 NFAS:= AFG? 
4324. . CALL PLUME: 
125 CALL FENUF $ 
2126 МАД = A? 
127 CALL. PLUME? 
“ዲመ . END 
129 «ՇՏ 
co$30 . ረፈ RETOUR 
151 ረረ | 
. 432 ኦኮሎል5፤= AFNIOS 
07133 DIR:- 5۶7 
ےو ہد‎ ` CALL. PLUME? 
qae. € ہے‎ 
07636 4t DECALER VERS LA DROITE 
137. ç C 
«48. CNFAS3I= AF 
co $39 ^ DIR:= DIR35 
= 440 ` — CALL FLUME 5 
“141 | 
=>: 442 ENE 
8 43 ա | 
144. on <. BI արն 
145 «« DERNIER GRAND TRAIT 
146 << : | 
147 CALL FENTIOWN $ 
148 NFAS:z AFN103 
48... ըլ» (1181: 
- 450 CALL FLUMES 
151 | | 
“jA END ¿< DE NOR. 
153 ረረ | 
134 — ረፈ | RE SE JE JÉ DE DE DE Ж E DE ЭЕ QE EE چو‎ ЗЕ ጎድ € E ጎድ 9E ንፍ € ጅጅ ፓድ DE ንድ € ጁ DE E ንድ ጎር E E ጎዴ DE DE DE ጎሮ ጎዳ ቱቶ ሪዮ DE DO DE DE ጎዳ DE ጎና ቀና ጎዛ یو‎ ጎቶ و‎ ፡፡ 
155 ረረ | 
156 ` PROCEDURE QOB(BINE »BSUF »FAS 
157 
458 - LOCAL SECTION CONTINUE LOC 
159 WORD BINF»ESUF-FAS3 
: 160 
0361 „USING LOCAL IS LOC»: COMMON IS COM? 
162 ` | 
163 s= BINF-FAS? 
164 DOF I:- [+FAS3 | 
165 IF (PAZZO) THEN IF ‹፲ ‹ጅ5ህዮነ5 THEN EXIT OFS ENDS END: 
0000 $6 IF (FASO) THEN IF CI)ESUF) THEN EXIT OB3 ENDS ENDS 
167 
-— 168 ex | 
16% بی‎ AVANCER SUR LE COTE 
170 << | _ 
171 CALL FENUF3 
- 172 IF (PAS30) THEN 


Meu 172 nIR:m 25 
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-424 NFASI- АРУЗ 


175 |. CALL FLUMES 
- 176 ELSE 
00177 - DIR3= 05 
ری‎ Fa: NFAS:= AF10? 
179 CALL PLUMES 
. 180 DIKR:- 65 
- 1691 NFAS:- AF 
о 182 CALL PLUME: 
183 END: 
184 
18% «« 
186 «€ 1 ERE LIGNE BRIGEE 
187 té 
188 DIR:- 2: 
189 
190 DO FOR J:- 1 STEF ti UNTIL 
191 CALL FENDOWN: 
192 NFAS:-APOS 
193 CALL FLUMES 
194 CALL PENUF ፤ 
195 NFASi" APIS 
— 196 CALL FLUMES 
197 ԷԿԱ: 
198 
199 «« 
200 << RETOUR 
Ms AR بے‎ a 
202 NFAS:-Ix*AF10; 
203 DIR== 35 
204 CALL PLUME} 
205 (C m 
206 ¿< SE DECALER D'UN CRAN 
207. ረፈ ይይይ | 
208 DIR:- 25 
209 NASE =A $ 
210 CALL FLUME ፤ 
211 ረረ 
212 4< LIGNE CONTINUE 
213 ረፈ 
214 CALL F'ENDOWN 35 
21% NPAS:=IXAF10 
216 DIRES 25 ہے‎ 
217 CALL FIUME; 
218 9 ٤ 
219 «Հ. RETOUR 
220 ረፈ 
221 CALL PENUF' 3 
222 KIRs= 35 
223 CALL. PLUME? 
224 ċċ 
оте کڈ‎ DECALER 
226 ¿< 
227 DIR:- 25 
at NFAS:-A5 
229 CALL. PLUMES 
230 «« | 
231 ረረ 3IEME LIGNE BRISEE 
0232 E 
733 ուք» 7% 
. 234 | 
E DO FOR Jisi STEP ՒԼ UNTIL 1: 
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፦ 
“es 


2356 NPASi- As 


A CALL PLUME 5 
۸م‎ 7 CALL FENICUN $ 
2S? - ONFASs:sAPOS | 
uo CALL PLUME 7 
ዳች À CALL ٣۲ا۶‎ 
„42 ONFÁSi= 87 
243 CALL FLUME 7 
0446 ENTS 
745 
246 < < 
247 {CRE TOUR 
248 ሂና | 
za ԱԼԻ Տ» 37 
250 አሦልኗ5 s= THAR 19095 
51 CALL. PLUME > 
252 A A 
AES ` (€ REDES CENDRE UN BRIN 
—— ማመ AA 
መጋ ` րի: 435 
256 SI ኦኮሎል=፡= Ar 
Er CALL PLUME: 
| 258 
| 799 ہے‎ ENDS 
- 260 | | 
$61 ENT SEDE DE | | 
© RS ረረ (007 X KC EE E AE BEE ЭЕ IE ЭЕ ЭЕ JE ЛЕ ЗЕ ЭЕ Э IE ЗЕ ЭЕ Эё ЭЕ Ж ጅቡ DE ЗЕ ЗЕ ЭЕ ЗЕ یو‎ ЭЕ ЗЕ ጅጁ ЭЁ ЭЕ ЭЁ DE ЭЕ ЭЕ ጅጅ ЭЁ ЭЁ ЭЕ ЗЕ ЭЁ ЭЁ € € 
cas ረረ : | 
== | 
266 | | | | | . 1 
der ¿USING KSTORESFILE:LOCAL LOC » COMMON=COM $ 
Der WEITE QA 
2/0 CALL LEC (OA)? 
DAI WRITE ANS | 
272 CALL LEC (ON) $ 
ER | 
224 ` ይ= JOXAS 
ታጋ و2 تیم‎ DEAF 
276 AP SBs= BAS 
277 AF934232 ORAS 
278 APiO0: 10#6ል፤ 
279 AFN10:= AF LON? 
280 
281 << | 
282 ረፈ LIGNES HORIZONTALES ET VERTICALES. 
203 ረረ 
234 CALL NOR (6,290) $ 
2059 CALL ۲۰۴۸۰۴۶ 
2096 NFASi=" AFPNIOs 
207 UIE, 
200 CALL PLUME 5 
09 UTR 5 =4 
ርዕ . CALL PLUME: | 
271 CALL NOB (Os4+4) $ 
93 CALL ١۸۰۶ 
27 L NFAS:z AFNIOS 
Mira) OERI 4 9 
Hu gr CALL PLUME? 
296 | 
297 «« 
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29 ik LIGNES OELIQUET. 
299 ብ 

300 CALL OR CLeNe LiF 
301. CALL. OB N-i lri" 


SOL 
303 ENT. 
304 FIN 


URGENT 


ar. پا‎ 


v 


T ES 


NE PAS AFFRANCHIR 
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